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MUMPS par Yannick LE GRAS 


XI LES ENTREES-SORTIES 


A) Introduction 


Nous avons déja vu les deux uniques commandes d’entrées/sorties dispon ibles 
en MUMPS. Lorsque nous les avons utilisées, elles permettaient de dialoguer 
avec le terminal de l’utilisateur. Mais, MUMPS permet d'effectuer des 
entrées/sorties (1/0 ou input/output) sur d’autres périphériques tel que des 
imprimantes, des dérouleurs de bandes et même d’autres ordinateurs. Pour 
réaliser ces communications,les ordres READ et WRITE seront, de la même 
manière, utilisées avec une syntaxe étendue. 


B) La commande OPEN 


Avant d'utiliser un péripherique, it est indispensable, dans un contexe 
multi-utilisateurs, d’avertir la machine que celui-ci est réservé pour un 
programme. Cette demande de réservation est effectuée à l’aide de la commande 
OPEN. Bien entendu cette demande #st honnorée si le péripherique demandé est 
dispon ible. La commande OPEN est accompagnée de trois arguments dont a 
signification est la suivante : 


- Une expression (ou un nombre entier) correspondant au péripherique ou au 
fichier à réserver, 


Une au plusieurs expressions, appelées “paramètres du periphérique" qui 
fournissent les informations nécessaires à la description du periphérique 
ou du fichier, ' 


Une expression qui indique le temps maximum (nombre de secondes) pendant 
lequel on accepte d’attendre la dispon ibilite du périphérique. 


Puisque les périphériques peuvent changer d’une machine à l’autre, le 
standard MUMPS ne précise pas le contenu de la partie "paramètres du 
périphérique". L'utilisateur sera obligé de se reporter à la documentation de 
son installation, Mais MUMPS est capable de dire au programme exécutant un 
OPEN si la demande est satisfaite ou non. Ceci a l’aide de la variable 
système TEST que nous avons déjà étudié . Cette variable est alimentée avec 
la valeur 8 (faux) si aprés le temps maximum inparti,le périphérique n'est 
pas ouvert. Dans le cas contraire $TEST contiendra i (vrai). La variable 
STEST est affectée, seulement, si l’on.utilise Île paramètre de temps. 


Afin d'illustrer cette commande admettons que notre confiquration comporte 
un terminal-écran, une imprimante et un lecteur de carte. Les numéros 
attribués à ces périphériques étant les suivants : 


Le numero 8 pour l’écran 
Le un 1 ““  jJ'imprimante 
Le, ** 2 “"* Je lecteur de carte 


Note : Sur la plupart des implantations, il n'est pas nécessaire d’ouvrir Île 
terminal de l’utilisateur. ù 


Imaginons, que votre programme besoin d’utiliser l’imprimante et Île 
lecteur de carte. L'une des deux commandes suivante est nécessaire : 


OPEN t:pi,2:p} ou Q i:pi,2:pl ou Q j:pi Q 2:pl 
OPEN 1:pi,2:pl:é68 


Les indications pi et pl représentent les paramètres de l’imprimante et du 
lecteur de carte. Dans la deuxième commande, on peut noter l’apparition du 
paramètre 68. 11 indique a MUMPS d'alimenter la variable $TEST et de compter 
le temps... Si au bout de 68 secondes le lecteur de carte n’a pas pu ‘être 
ouvert $TEST contiendra @ (faux). À l’inverse, si 1*OPEN à pu s'effectuer, 
$TEST contiendra 1 (vrai). 
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C) La commande USE 


Le fait d’avoir ouvert un périphérique, n'indique pas qu'il est utilisé, 
mais simplement qu’on se le réserve. Maintenant, nous allons étudier un 
nouveau concept. I1 concerne ce qu’on appele Île périphérique “caurant". Les 
ordres READ et WRITE font toujours appel au dernier périphérique référencé. 
Initialement, le périphérique courant est la console de l'’utilisateur. 
Lorsqu'un programme desire changer de preripherique courant, il utilisera la 
commande USE © U ). L’argument de 1a commande USE est le numéro de 
périphérique. E1 est possible, comme dans la commande OPEN, de spécifier des 
paramètres du rod ue. Bien entendu, il serait stupide de mettre 
plusieurs numéros de phériphérique dans la commande USE puisque celle-ci 
definit LE périphérique COURANT. Imaginons que l’on veuille Écrire sur 
l'imprimante. nous pouvons écrire la routine suivante (en conservant les 
numéros de périphérique définis au paragraphe précédent) : 


DEB ESSAI IMPRESSION Y.L.G. 2/0CT/84 3/0CT/84 
W !,"écriture,à la ligne, de ce texte“ 
0 1 jouverture de 1’imprimante 
U + qutilisation de l’imprimante comme périph. courant 
F 
Q 


1=1:1:18 W !,"Numéro de ligne : ",1I 


D) La commande CLOSE 


Afin de ne pas monopoliser un périphérique éternellement" un nouvel ordre 
permet d’avertir la machine qu’it redevient dispo nible. Cette commande est 
l’ordre CLOSE € C ). La syntaxe et les paramètres sont les mêmes que pour 
les ordres OPEN et USE, Apres l’execution d’un ordre CLOSE, le péripherique 
courant redevient, néralement, la console de l'utilisateur, 


E) Les variables systèmes $X, #%Y, #10 


Comme nous l’avons déja vu, le système est capable de maintenir deux 
variables alimentées par les ordres d’écriture ($X pour les colonnes, $Y pour 


les lignes), Ces Variables sont, toujours, relatives et uniques au 
périphérique ou au fichier courant. Souvenez-vous des signes cabalistiques 
qui permettent de aqérer les formats d'écriture « !, ?, # ). D'autre part, la 


variable systeme #10 (ou #1) est alimentée par Ja commande USE. Elle 
contient le numéro du périphérique courant. 


F) Extensions relatives aux commandes READ et WRITE 


Ce paragraphe nous permet d'introduire des arguments nouveaux aux commandes 
READ et WRITE, donc de nouvelles fonctionnalités. La première de celles-ci, 
permet d'entrer ou d'écrire un et un seul caractère, en prenant en. 
considération sa valeur décimale de la table ASCII. Pour ce faire, la 
variable réceptrice CREAD) ou emmettrice (WRITE) sera précédée d’une étoile 
{ # ou asterisque )., Dans le cas du READ, c'est la méthode à employer pour 
saisir au clavier un caractère de controle, Ainsi, si on écrit l’ordre 
suivant et que l'entrée au clavier est la touche <tab», ou ctrl-l,le contenu 
de la variable réceptrice €CUAR) est égal à 9. 


READ #USR 


Nous pouvons reprendre le même exemple avec la commande WRITE. Cette fois-ci, 
nous pouvons donnerune équivalence afin de mieux comprendre. 


WRITE *x9 


(assee OÙ ==ses 


Le nouveau standard (de 1982) à inclus une autre extension à la commande 
READ. 11 est souvent nécessaire de limitervla longueur de saisie au clavier 
à un certain nombre de caractères. Pour ce faire, un nouvel argument est 
ajouter au READ. 11 s’agit du signe # suivi du nombre de caractère maximum, 
Donc en exécutant l’ordre READ CODEPOST#S, l'utilisateur ne pourra pas 
entrer plus de cinq caractères au clavier lors de l’execution, 
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Ayant vu dans les précédents paragraphes l’utilisation du péripherique 
“courant”, souvenez vous que les commandes READ et WRITE s’appliquent à 
celui-ci. Dans ces conditions, il est indispensble de pouvoir fixer un temps 
maximum d’attente d'entrée. Aussi ce temps peut être défini dans la commande 
READ. Pour ce faire, i1 suffit de préciser en dernier argument Île nombre de 
secondes pendant lequel on accepte d‘'attrendre. Imaginons que l’on veuille 
une saisie d’un mot de passe de trois caractères au clavier et que le temps 
max imum autorisé pour la reponse soit de dix secondes, nous écrirons : 


READ ! ,"entrez votre mot de passe : “,MOTH3:16 


La variable $TEST est affectée aussitôt que l’on utilise un temps limite. 
Dans le cas ou l'opérateur n’a pas repondu dans le temps prévu, la variable 
$TEST (ST) contient 8 (faux) autrement elle contient 1 Curai). Une valeur 
particulière affectée à STEST est prévue pour la commande READ d’un seul 
caractère avec un temps limite € READ xvariable:temps ). Sur certaines 
implémentations si le temps est depassé, c'est la valeur -1 qui est affectée à 
$TEST. 


Note : La commande READ n'autorise la saisie que des caractères 
visualisables. Si la saisie doit incorporer des caractères de contrôle, la 
forme READ xvariable doit etre utilisée. 


G) La fonction $JUSTIFY 


Nous avons vu que l’utilisation du signe ? suivi d’un entier dans un ordre 
WRITE, permettait de se positionner une colonne specifiée.Ceci permet de 
cadrer le texte à gauche . Cette fonctionnalité est appel ée : "justification 
à gauche". De temps en temps, il est intéressant d’aligner sur la droite du 
texte ou des valeurs. On dit qu’il s’agit d’une “justification à droite". 
fAidmettons que l’on veuille cadrer Ÿ droite à la colonne 28 le texte 
"bonjour", Nous serions obligés d’écrire-les lignes suivantes à. 


F 1=0:1:28-$L(C"bonjour") W * * 
W “bonjour 


Cette forme d'écriture nécessite beaucoup de place et un long temps. 
d'exécution. Aussi MUMPS me t à notre disposition-une fonction :: 
qui permet la justification à droite, c'est la fonction $JUSTIFY ( $J ). En. 
utilisant le mème exemple, nous obtenons le même résultat en écrivant : 


W $JC“bonjour",2@) 


Cette fonction a d’autres domaines d’utilisation. On peut, grâce à elle, créer 
un littérai de toute pièce, Le fait d'écrire S DIXBLANC=$J("",10) permet 
d'affecter à la variable DIXBLANC 16 espaces. Nous pouvens voir, de part la 
structure de SJUSTIFY, que Île deuxième argument correspond À la zone maximum 
de cadrage a draite. 


\ 
Attention !: Si la longueur de la cha\ne dépasse ta Valeur du 2eme argument, 
le cadragé ne sera pas effectué. 


Un troisième argument peut être ajouté dans la fonction $JUSTIFY. 11 sert à 
“ justifier" et/ou “arroandir" une valeur numérique. Pour le moment cet 
argument doit TOUJOURS être positif. Par la suite les concepteurs de MUMPS 
utiliseront peut Être les valeurs négatives pour des actions particulières. 
Les exemples suivants sont suffisament explicites pour ne pas faire de longs 


discours. 


expression a evaluer valeur produite 


8J(3.1416,8,8) 3 
sICé.512345,8,0) 7 
$J(4.325,8,2) 4 
$J(5.76,0,1) 5 
$J(2.482,4,2) 2 
#J(2.482,8,5) 2. 
$J(7,8,2) 7 
$JC"ABC",2,8) @ 
SJC“XYZ",8,8) E) 
$JC"6G6G",5,2) 8 
$JC.5631,4,2) a 
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£ 

Ç 
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Dans le cas d’une valeur fractionnaire un zera non significatif est ajoute, 
Cette caracteristique est tres interessante dans les formats de sortie 
requis en gestion. 


H) La commande JOB 


Une des utilisations les plus frequentes des ordinateurs, bien que souvent 
Pas necessaire, est de sortir du papier. Pour ce faire, Îles programmes n’ont 
pas besoin d'etre interactifs, il n’est donc Ras necessaire de bloquer la 
console de l’utilisateur pendant une tache d’edition. Puisque MUMPS est par 
essence un systeme multi-taches, il est nature! de pouvoir lui sous-traiter 
Une tache "fantome" (ou tache auxilliaire). Plus generalement, on emploi une 
tache “fantome” C“background") lorsqu'il n’y a pas de dialogue avec 
l’operateur. Cette sous-traitance est realise à l’aide de la commande JOB. 
MUMPS permet d’initialiser une ou plusieurs taches auxilliares qui 
s’'executeront. dans des partitions differentes de la machine. Si nous 
ecrivons, puis. nous Sauvegardons. la routine suivante : 


ESSAI 3PRG. POUR JOB/Y.L.G. 24/11/84 28/11/84 
DEBUT O IMP:6 Q:'4T U IMP 3IMP contient le numero de l'imprimante 
. F Isl:t:48 W !: "boucle an cours numero courant : *,1 
C IMP Q jfin de la routine 


Maintenant ,.nous voulons qu'elle s’execute dans une autre partition, Pour ce 
faire, il suffit d’ecrire la commande ci-dessous : 


JOB “ESSAI ou JOB DEBUT'ESSAI 


Chaque fois qu’une commande JOB est specifiée, une nouvelle partition est 
requise. Le périphérique courant de la tSäche background est, sauf indication 
Contraire, la console de l’utilisateur qui a demandé cette exécution. 


Des paramètres spécifiques peuvent être ajoutés à la commande JOB (Ex, Ja 
taille mémoire nécessaire pour l'exécution du programme). Ceux-ci seront 
séparés du reste de la commande par le signe : Cdeux points), I] eet 
egalement possible d'ajouter un temps limite de prise en compte de la 
Commande JOB, Dans ce Cas, la variable $TEST est alimentée à zero 0 (faux) si 
l'exécution de.J0B n'est pas realisée dans le temps imparti, un 1 (vrai) dans 
le cas contraire, Exemple : 


JOB “ESSAI :28:1 


On demande d'exécuter Ja routine ESSAI en background en lui réservant 24 Ka 
et en acceptant d’attendre ! seconde, 


RESUME 


Dans ce Chapitre, nous avons vu les extensions des commandes READ et WRITE. 
Comment un utilisateur pouvait accéder à un péripherique autre que son 
terminal à l'aide des commandes OPEN, USE et CLOSE. Ce qui permet d'affirmer 
que Îles télécommunications, entre les machines equipées de MUMPS, sont très 
simples à mettre en oeuvre. Ces typesde communications pourront être 
implantées comme tâches "background" à l’aide de la Commande JOB. Cette 
commande Étant utilisé à Chaque fois qu’un traitement ne demande pas 


l’intervention d’un opérateur. 
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FUTUTURLOG 2eme LEÇON 


Le système FUTURSYS a été présenté dans le 
numéro 19 du mensuel JEDI et par les revues 
MICRO-SYSTEMES et L'ORDINATEUR INDIVIDUEL. 
Mais pour JEDI, il ne suffit pas de présenter 
un système, il faut aussi parler des concepts 
mis en oeuvre par ce nouveau système dont la 
principale caractéristique est d'être pour le 
moment le seul système d'intelligence artifi- 
cielle portable. C'est pourquoi, nous avons 
pris contact avec son créateur. Grâce à lui, 
nous sommes en mesure de vous proposer cette 
série. 


LES FAITS 


Les faits sont les connaissances élémentaires 
qui, à l'intérieur d'un concept, permettent 
d'évaluer une expression préalablement analy- 
sée, c'est à dire transformée en arbre. 


Le quadruplet suivant définit le fait: 

- une relation binaire, dite relation 
d'inférence. 

- une expression. 

- un développement de cette expression. 

_- une fonction implicite, éventuellement 
nulle, dont l'exécution est liée à l'utilisa- 
tion du fait. 


Les expressions utilisées étant des arbres, 
elles peuvent donc représenter des types 
quelconques, numérique, logique, formel, 
etc... (la logique pouvant être quelquonque, 
car définie par exemple au moyen d'autre 
faits). 


L'utilisation d'une base de faits pour éva- 
luer une expression consiste à comparer cette 
dernière, où une partie de cette dernière, au 
second membre de chaque quadruplet-fait Cuni- 
fication). à la condition préalable que, pour 
une même expression, il puisse y avoir plu- 
sieurs faits correspondants à des relations 
d'inférence différentes. Exemple: 


on pourrait avoir 1+2=3 


(avec la relation .=.) 
type (2):N 
(avec la relation type(.):.) 
1R3 


(avec la relation .R.) 


Si l'essai d'unification aboutit à un succès, 
alors l'expression ou sa partie entière est 
remplacée par Île troisième membre du quadru- 
plet-fait (c'est l'inférence), la fonction 
implicite dernier élément du quadruplet étant 
également activée. 


Selon que l'on se satisfait d'une seule uni 
fication (un seul fait choisi) ou qu'au con- 
traire on recherche toutes les unifications 
possibles, FUTURSYS fonctionne respetivement 
en mode algorithmique ou eñ mode combina- 
toire. Nous verrons plus loin l'intérêt de 
chacun de ces modes. 


Mais au préalable, nous allons expliciter la 
représentation d'un fait qui s'établit comme 
suit: 


Nol,plicite, expression en-relation-avec 
développement de l'expression. 


La relation pouvant être par exemple: 


p-f Ar f:-F Char 
type CEb :U F CA) - A3 
Alorsfusi® Aiimpiiquetu 


etc... 


C'est une relation binaire quelconque, défi- 
nie en structure. Cette relation étant sélec- 
tionnée comme un paramètre de l'unification, 
il faut remarquer qu'elle permet donc de 
choisir certains faits seulement du concept 
(ceux comportant la bonne relation d'inféren- 
ce). Le numéro de la fonction implicite 
nulle est 0. 


quelques exemples de faits: 
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0, 1+2=3 

3, Al+42=A9 

0, SiVraiAlorsAiSinonA2=Al 
0, VraiOuAl=Vrai 

0, SiFauxAlorsAlSinonA2=A2 
0, VraiEtAl=Al 
0 

[e] 

[e] 

[e] 

(6) 


, 


, FauxOuAl=AÏ 
, FauxEtA1=Faux 
A1GP.A2+-A1PE.A3EtA3PE. AZOUA3ME. A2 
, Ot=1 
ñ Al!t=(A1-1)!XA1L 

0, PGCD(A1,A2)=SiReste(A2,A1)VautOAlorsA1Si 
nonPGCD(Reste(A2,A1),A1) 

0, TourHanoi (A1,A2,A3)-SiA1VautOalorsRienSi 
nonTourHanoi(Al-1,A2,(6-A2)-A3);Ecrire"Disque 
“yAlu"de"uAzu"ä"uA3;TourHanoi(A1-1,(6-A2)-A3. 
A3) (dépiacer une tour de 
hauteur Ai de la colonne A2 à la colonne A3). 


FONCTIONS IMPLICITES 


L'objet des fonctions implicites, qui sont 
activées lors de l'inférence, est d'effectuer 
soit des calculs tourds et formels (opéra- 
teurs numériques), soit des opérations d'en- 
trée-sortie qui ne se prêtent pas au calcul 


formel. A cette fin, FUTURSYS propose à l'u- 
tilisateur une biliothèque de fonctions im- 


piicites permettant à celui-ci d'effectuer 
les entrées-sorties, le traitement des nom- 
bres, des chaînes, des arbres, ainsi que des 
fonctions du système. 


UNIFICATION 


cette opération consiste à comparer une Ppar- 
tie de l'expression à évaluer, au second 
membre d'un quadruplet-fait, selon un des 
deux critères suivants: 


- l'identité. 
- J'inégalité, ou différence. 


ces deux critères, mutuellements exclusifs, 
permettent de valoriser des arguments vides. 


Ces mêmes arguments peuvent, et c'est en 
général -leur intérêt, être utilisés par le 
troisième membre du quadruplet (développement 
de l'expression), ainsi que par Île quatrième 
et dernier (fonction implicite). Avec la 
notation Ai représentant l'argument no i, on 
a les exemples suivants: 


1-2 s'unifie à 1+2, 1+A3, A4+A5, mais pas à 
Ai+A1, si on utilise le symbôle #, qui permet 
de signaler une unification par différence, 
on à : 


1-2 s'unifie à #vVrai, #0, mais pas à #X. 


L'INFERENCE 


L'inférence est une opération qui remplace 
l'expression unifiée, par le troisième membre 
du quadruplet-fait (le développement de l'ex- 
pression), et qui active également la fonc- 
tion implicite liée à l'utilisation du fait. 


Dans le cas où il y a plusieurs faits unifiés 
(mode combinatoire), les inférences auront 
lieu tour à tour grâce à un mécanisme d'ex- 
ploration de l'arbre des possibilités Cd'uni- 
fication), appelé ‘back-tracking'. 4 la suite 
de l'inférence, l'exprsession résultat, ou 
une partie de celle-ci, ou encore l'expres- 
sion résultat englobée dans une partie de 
l'expression initiale, subira le même traite- 
ment d'évaluation. 


L'ALGORITHMIQUE 


L'aigorithmique permet de ne se satisfaire 
que d'une seule unification, même si plu- 
sieurs sont possibles à l'intérieur de la 


Su ie € 10 


Dage 


par Pierre CHATELAIN 


FORTH VARIABLES LOCALES 


COMMENT SITUER LA PILE DE DONNEES 
EN MEMOIRE 


La pile de données, en langage FORTH, 
est sans nul doute l'endroit le plus commode 
pour passer des données et valeurs d'une 
définition à une autre, que celles-ci soient 
définies en FORTH ou en langage machine. Mais 
ii devient malaisé de gérer plus de trois ou 
quatre paramètres simultanément. Bien sûr, Île 


mot PICK permet un accès à n'importe quelle 
donnée, surtout celles que les mots DUP, ROT, 
SWAP et  DROP ne peuvent atteindre. Mais 


réfléchissons un peu. Voyons la situation où 


x données ont été empilées: 


- une première manoeuvre à l'aide de n PICK, 
avec n compris entre 1 et x (et n non compris 
dans les x éléments), dépose au sommet de la 
pile la nième valeur contenue dans la pile de 
données. 

- pour 
la pile que précédemment, il 
taper n+1 PICK. 

- imaginez ce que donne le programme quand 
on gère 5, 10, voire 15 paramètres ou plus 
dans la même définition. La lisibilité de la 
définition devient douteuse, pour vous comme 


déposer la même valeur au sommet de 
faut maintenant 


pour les autres, et la gestion de tant de 
paramètres devient un cauchemar. 

or, le contenu de la pile de données peut 
être situé en mémoire à l'aide de deux 
adresses. La première, est accessible par SO 
qui délivre l'adresse du début de la pile. La 
seconde par SRD qui délivre l'adresse dau 
pointeur de pile. Lorsque la pile est vide, 
les adresses délivrées par S0 et SPà sont 
identiques. 

Sur la majorité des systèmes, la pile est 
implantée physiquement à partir du sommet de 


la mémoire et l'empilement des données décré- 
mente la valeur du pointeur de pile. 


Voici le diagramme d'une pile vide: 

——— :- S0- adrO <- Sk® - adro0 
NOTA: si les contenus de S0 et SR affichent 
des valeurs négatives, utilisez le mot ‘U.' 
pour afficher des données exprimant des 


adresses mémoires. 


L'empilement d'une valeur 16 bits quelconque 


donne le résultat suivant: 


S0O- adr0 
SR : adro-2 
L'empilement d'une seconde valeur 16 bits 


quelconque donne maintenant: 


S0-= adr0 
‘- SR - adr0-4 


Ainsi, pour n valeurs, SPà délivre l'adresse 


adr0-(2xn): 


S0- adr0 


La seule adresse fixe, 


‘- SR - adrO-(2xn) 


dans le système FORTH, 


est donc SO. Une solution commode serait de 
s'en servir comme pointeur initial pour 
situer une valeur dans la pile. Exemple: 


SO 4 


@ 


per 
dépose la valeur n2 au sommet de la pile de 
données. 
DEFINITION DE VARIABLES LOCALES 
L'idée de départ est de reprendre le 


mécanisme des variables locales telles qu'el- 
les sont gérées en langage PASCAL. Par souci 


de simplification, seul le mécanisme de base 
est conservé. Le but final est de pouvoir 
disposer d'un nom pour accéder à une valeur 
située à une position quelconque de la pile 
de données. 

Première solution: 

En ‘utilisant l'adresse délivrée par SO, on 
peut définir des mots qui déposeront sur l]la 
pile de données la valeur d'un élément de la 


pile de données. La position de cet élément 


est calculée en appliquant la formule: 
SO - offset 


où ‘offset’ désigne la position de l'élément 
dont on recherche la valeur. 


Une proposition de définition symbolique pour 


cette première solution sera de ta forme: 
VARLOC 
CREATE CC n --- «<mot>) 
n 2%, C nx2=offset) 
DOES » € --- contenu de S0-offset) 
© S0 SWAP - @ : 


et 1 VARLOC VALI 2 VARLOC VAL2 
5 7 3 65 8 

VAL1 ( empile 5) 

VAL2 ( empile 7) 


VAL1 € empile 5) 


Mais cette première solution ne permet pas la 
“localisation” des variables VALI et VAL2. En 
effet, toute définition utilisant ces mêmes 
variables (VAL1 et VAL2) utilisera aussi les 
mêmes valeurs. Or, la “localisation doit 
permettre à chaque définition d'utiliser ses 
valeurs propres, ceci à partir des mêmes noms 
de variables. 


Seconde solution: 


On peut transférer l'adresse de la position 
du premier élément appartenant au groupe des 
variables locales au sommet de la pile de 
retour. Exemple: 

SR 8 


le contenu du sommet 
initial à 


ce qui permet d'utiliser 
de la pile de retour comme pointeur 
la place du contenu de SO: 


RKD @( ou R® ) 


offset - 


Mais cette solution comporte un inconvénient 


majeur, car l'empilement d'une valeur 
quelconque au sommet de la pile de retour 
sans un dépilement au sein de la même 
définition perturbe le fonctionnement de 
l'interpréteur FORTH. En outre, cette 
solution devient incompatible avec le 


mécanisme des boucles DO...LOOP qui utilisent 


également la pile de retour. 


Troisième solution: 


On transfère le pointeur de pile initial dans 
une variable: 

VARIABLE POINTEUR 

SP@ POINTEUR ! 
L'accès à une donnée empilée par la suite 


prend la forme: 


Marc PFETREMANK 
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VARLOC 
CREATE (on --- <moto>) 1- 2x, 
DOES> ( --- donnée) 


@ POINTEUR @ SWaAP @ : 


cette solution est compatible avec les méca- 


nismes internes de l'interpréteur FORTH et 
des boucles DO...LOOP, mais ne permet tou- 
jours pas la “localisation". En fait, il faut 


de deux mots supplémentaires, le 

chargeant POINTEUR avec l'adresse du 
pointeur de pile courant et sauvegardant la 
précédente valeur de POINTEUR, le second 
réalisant le mécanisme inverse, c'est à dire 
restaurant la valeur de POINTEUR précédement 
sauvegardée par le premier mot. 


disposer 
premier 


DES VARIABLES LOCALES A LA PELLE 


Les variables dites locales, telles 
qu'elles sont définies dans les blocs 300 et 
301, fonctionnent selon la troisième solu- 
tion, à la différence près que POINTEUR dési- 
gne un tableau à une dimension et non une 
variable. L'accès au pointeur courant est 
réalisé par: 


POINTEUR (@ 


mais l'empilage et le dépilage du pointeur 
courant sont réalisés par les mots >POINT et 
POINT». La profondeur de la pseudo-pile ainsi 
gérée est controlée par la constante 


PROFONDEUR, définie dans le bloc 300, et sa 
valeur est de 40 unités. Chaque groupe de 
variables locales empile le nombre 
d'arguments et le pointeur de pile courant 


ce qui autorise jusqu'à dix 
Pour accroitre Île 
faut augmenter ia 


sur POINTEUR, 
niveaux de récursivité. 
nombre de niveaux, il 


valeur initiale de cette constante. 


SCR: 300 
€ VARIABLES LOCALES EN FORTH) 


4Q CONSTANT PROFONDEUR 
( Cette valeur peut etre modifiee afin) 
{ d'accroitre les niveaux d'appels. ) 


VARIABLE POINTEUR PROFONDEUR ALLOT 


>DPOINT Ç n ---) 
POINTEUR DUP 2+ PROFONDEUR <CMOVE 
POINTEUR ! ; 


POINT» Ç --- n) 
POINTEUR @ 
POINTEUR DUP 2+ SWAP PROFONDEUR CMOVE ; 


ARGUMENTS © n -—-) 
DUP >POINT 2% SP@ + >POINT 


HOME: 20 

CRÉATE © n ——-—) 
1- 2X , 

DOES> € —-- ['pointeur+n]) 
© POINTEUR @ SVAP - @ ; 


Le mot ARGUMENTS peut être utilisé en inter- 


prétation ou en compilation. Lors de son 
exécution, il empile sur POINTEUR le nombre 
d'arguments et le pointeur de pile courant 
augmenté de la valeur d'offset correspondant 
au double du nombre d'arguments. 


Le mot RESULT conserve les n éléments situés 
à partir du sommet de la pile de données, 
puis ramène le pointeur de pile courant à la 
valeur désignée par celui contenu dans 
POINTEUR et détruit les valeurs désignant le 
nombre d'arguments et le pointeur de pile 


qui sont situées au sommet de la pseudo pile 
POINTEUR. 
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Les en-têtes de variables locales sont 
définis à l'aide du mot ‘'P:'. Ce mot est 
défini en fin de bloc 300. Une version plus 
rapide à l'exécution est définie en 
assembleur FORTH 6809 dans le bloc 72. 


SCR: 72 
€ VARIABLES LOCALES EN FORTH ) 
(€ Version ASSEMBLEUR FORTH 6809) 


5 P: 
CREATE € n -—--) 1- 2% , 
; CODE € --- [pointeur+n]) 


x pshs 2 ,x ldd à pshu 

POINTEUR 1dd @ ,u subd à x tfr 
® ,x idd © ,u std x puis 

HEX ©0609 jmp DECIMAL END-CODE 


Le mot TO permet d'affecter une valeur 
numérique à l'un des éléments de la pile, cet 
élément étant désigné par le nom de la 
variable locale correspondante. Exemple: 


4 P: STOI1 
55 1 ARGUMENT TO STO1 O RESULT 


affecte la valeur 55 au premier élément d'a- 
dresse "POINTEUR @ 4 2x + ‘, POINTEUR 
contenant l'adresse SPà avant l'empilage de 


l'argument. Le fonctionnement du mot TO est 
similaire au mot LIT, c'est à dire qu'il 
incrémente le contenu du sommet de la pile de 
retour de deux unités afin d'éviter l'exécu- 
tion du mot qui le suit. 


SCR: 3901 
: LOCALS: 
1+ 1 DO 
I Pi 
LOOP ; 


Ç n --- <moti mot2 motn>) 


VARIABLE ITEMS 


: RESULT © n ---) 

DUP ITEMS ! 

BEGIN ?DUP 

WHILE . SWAP DR 1- REPEAT 
BEGIN POINTEUR @ SP@ = @= 
VWHILE  DROP REPEAT 
ITEMS ©@ 

BEGIN ?DUP 

VWHILE R> SWAP 1- REPEAT 


POINT> DROP 
POINT» DROP ; 


DE KA mem 
Re @ 2+ @ 
POINTEUR © SVAP -— ! 
R> 2+ DR ; 


locales 
être définis en série à l'aide du mot LOCALS: 


Les en-têtes de variables peuvent 
dont voici un exemple d'application. Soit à 
calculer la surface d'un parrallélipipède 
rectangle dont les arêtes sont désignées par 


COTEA, COTEB et COTEC: 


3 LOCALS COTEA COTEB COTEC 
SURFACE ( coteA coteB cotec --- aire) 
3 ARGUMENTS 
COTEA COTEB *x 2% 
COTEA COTEC *x 2% + 
COTEB COTEC *x 2%*x + 
1 RESULT ; 


on définit trois variables 
COTEB et COTEC. A partir de 
ce moment, il faut équilibrer le contenu de 


Dans cet exemple, 
locales, COTEA, 


la pile de données avec le même nombre d'é- 
léments que de variables locales utilisées 
dans une définition. Les éléments sont affec- 
tés aux variables correspondantes dans le 
même ordre que celui de la création des va- 
riables locales. Ainsi, si on dépose succes- 
sivement les valeurs 3 5 et 8 sur la pile, la 


valeur 3 est affectée à COTEA, 5 à COTEB’et 8 
à COTEC. L'initialisation du POINTEUR est 
réalisée par l'exécution de 3 ARGUMENTS (nor- 
mal, sinon POINTEUR pointe sur n'importe 
quoi...). 


Le nombre d'éléments résiduels laissés sur la 
pile est déclaré par n RESULT. Dans l'exemple 
ci-dessus, 1 RESULT laisse la valeur située 
au sommet de la pile de données. Si on avait 
voulu conserver les valeurs de COTEA, COTEB 
et COTEC, il aurait fallu taper: 


4 RESULT à la place de 1 RESULT 


INTERET DES VARIABLES LOCALES 


Les variables locales pourront avanta- 
geusement être utilisées dans les définitions 
gérant de nombreux paramètres. Bien que le 
temps d'exécution de la définition soit un 
peu plus long, les variables locales permet- 
tent une plus grande lisibilité des défini- 
tions y faisant appel, une grande facilité de 
maintenance et la gestion d'un plus grand 
nombre de paramètres au sein d'une même 
définition. 


C'est cet aspect que je vais m'efforcer d'il- 
lustrer ci-après, en proposant un programme 
écrit en assembleur FORTH et en FORTH, 
tournant sur les systèmes THOMSON TO7 et TO7- 
70. Dans Îles routines qui suivent, on se 
propose de redéfinir les fonctions graphiques 
de dessin d'un point et d'un segment. Bien 
que ces routines soient déjà disponibles dans 
le moniteur et dans la cartouche FORTH (mots 
PSET et LINE), on 4 apportera les 
modifications suivantes: 


- relogeabilité en mémoire du tracé en 
cours. En clair, possibilité de tracer des 
points ou des segments de droite ailleurs que 
dans la mémoire vidéo. L'intérêt de cette 
option sera expliqué plus loin. 

- possibilité de définir des tracés en mode 
OR où XOR. Le premier mode est celui normal- 
lement défini dans le moniteur THOMSON. Le 
second mode permet d'effacer un motif après 
tracé simplement en le retraçant une seconde 
fois. 


- Le programme commence dans le bloc 302. Les 
deux variables PLOTX et PLOTY permettent de 
mémoriser les coordonnées terminales d'un 
point tracé à l'écran. 


Le mot  PARAM est chargé d'affecter les 
valeurs xd et yd à PLOTX et PLOTY. Ce mot est 
un mot "mixte", en ce sens qu'il s'agit d'une 
primitive définie en code machine et est 
exécutable aussi bien sous FORTH qu'en tant 
que sous-programme dans une autre primitive 
définie également en code machine. 


La variable STAD (pour STArt ADress) contient 
l'adresse du premier octet de la mémoire de 
l'écran vidéo. Toute modification de son 
contenu provoque le tracé du point ou du 
segment à une adresse différente. Si on tape 
"HERE 200 + STAD !', le tracé du segment se 


fera dans une zone mémoire située 200 octets 
après le dernier mot du dictionnaire. Bien 
entendu, ce segment ne sera pas visible. Pour 
le voir, il faut faire ensuite un transfert 
de bloc: 


COLOROFF 
HERE 200 + DUP STAD ! 
8000 O FILL 

20 50 100 150 LINE 

STAD (® 16384 8000 CMOVE 


En implantant différents dessins à des empla- 
cements variés (dans les banques mémoires par 
exemple), et en exécutant ensuite des trans- 
ferts de blocs en série, vous pourrez réali- 
ser une véritable animation graphique en 
temps réel (tellement temps réel qu'il faut 
même temporiser un peu entre deux transferts 
de blocs). 


Le mot CALCUL délivre l'adresse de l'octet 
contenant le bit à modifier pour un tracé et 
dont les coordonnées ont été déposées au 
sommet de la pile de données. 


SCR: 302 


HEX @099S CONSTANT NEXT 
VARIABLE PLOTX VARIABLE PLOTY 


CODE PARAM € xd yd --- xd yd) 
® ,u ldd PLOTY std 
2 ,u ldd PLOTX std rts 


FTH-RESOLVE NEXT jmp END-CODE 


VARIABLE STAD 4000 STAD ! 


CODE CALCUL € x y --- adr) 
x y pshs sut+ ldy # 
y dd tfr 28 # lda mul 


STAD addd € D=YX4O+STAD ) 

@ ,u ax x d exg 

1sra rorb € lsrd car x>255,donc ) 
isrb 1srb (€ decalage 16 bits) 
d,x leax © ,u stx X y puls rts 
FTH-RESOLVE NEXT jmp END-CODE 
DECIMAL 


Dans le bloc 303, le mot TABIT contient des 
valeurs correspondant aux exposants de 2, 
ceci de 2E0 à 2E7. Le contenu de ce tableau 
est utilisé en suite sous assembleur. 


La variable OPTION permet de choisir entre le 
tracé en mode OR ou XOR. Les options à 
affecter à OPTION sont données en commentaire 
dans le bloc correspondant. Exemple: 


16384 STAD !  COLOROFF 
1 OPTION ! 

50 100 120 150 LINE 

50 100 120 150 LINE 


trace et efface le segment. Si ce segment 
croise un motif déjà tracé, il efface les 
points précédemments allumés dans ce motif, 
puis lors du retraçage du segment, les points 
effacés sont restaurés. Visuellement, l'effet 
est très intéressant; prenons le cas d'un 
segment traversant un carré plein. l'inter- 
section du segment efface les points communs 
au segment et au carré. Le retraçage du seg- 
ment restaure le carré dans son état initial. 


Le mot PLOTXY affiche un point aux coordon- 
nées graphiques xd et vd, ceci en fonction du 
contenu de OPTION et dans une zone mémoire 
dont l'adresse de début est définie par le 
paramètre contenu dans STAD. Remarquez 
l'utilisation de la structure de contrôle 
if..then en assembleur FORTH, évitant l'em- 
ploi de labels pour les branchements. 


SCR: 303 
CREATE TABIT  HEX 

8® C, 40 C, 20 C, 10 €, 
8 C, 4 C, 2 ©, 1c, 


VARIABLE OPTION 
{ @=> trace en OÙ INClusif logique ) 
(€ 1=> trace en OÙ EXclusif logique ) 


CODE PLOTXY ( xd yd ---) 
x y pshs 
" PARAM jsr € PLOTX:=x, PLOTY:=y) 


” CALCUL jsr € calcul adr CPLOTXY) 
,ut+ ldx TABIT # ldy 


PLOTX 1+ da 7 # anda 
a,y ldb OPTION 1+ lda 
1 # cmpa 
eq if © ,x orb 
else @ ,x eorb then 
@ ,x stb 


X y puls rts 
FTH-RESOLVE 
DECI MAL 


NEXT jmp END-CODE 
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Et pour finir, on définit pas moins de onze 
variables locales, XD, YD. XF, YF, DX, DY, 
XINCR, YINCR, CUMUE, X et Y. Celles-ci sont 
utilisées dans la définition de LINE dont 
l'exécution trace un segment de droite dont 
les coordonnées d'origine sont xd et yd et 
celles de fin xf et yf. 


11 LOCALS: 
XD YD XF YF DX DY XINCR YINCR CUMUL X Y 


L'‘'algorithme de tracé d'un segment de droite 
est celui dit ‘méthode de LUCAS' et provient 


du livre ‘Synthèse d'image: Algorithmes 
élémentaires‘ par G.HERON publié aux éditions 
DUNOD: 


Génération SEGMENT-1 (x Y QUE entier} 
Début co méthode de cts Leo 
entier : ni st XINCR, VTNCR, CUMUL,X,Y; 
Xi Xy syyr 
d d 
afficher ne {x,y}: 
XINCR := 44 x x, alors atons +1 sinon -1; 
YINCR 1 84 y < y, aons +1 sénon -1; 
ax ;" able, AY :e abs (y -ygl; 
a&i aX > AY co on dessine Le maximum de points eo 
alons CUMUL := ARE 
Pour I ir 1! j Fe ‘à aX faire 
X:=2X + ; 
CUMUL := CUMUL + 4Y; 
#4 CUMUL > AX 


"— a£ons CUMUL := CUMUL - AX; 
YŸ s= Y + VINCR; 


À 
Eicher point {x y); 


sinon bee. AY/2; 


LUS se | jusqu'à AY faire 
PE y ie + VIRE 

CuMUL += CUMUL + 4X; 

Si CUMUL > 4Y 

"7 alors CUMUL := CUMUL - AY; 
X 3e X + XINCR; 


#4 
aggicher point (x,yl; 
ouñ 


gsi 

Fin 

Cet algorithme, décrit dans ce livre, en page 
22, est écrit en pseudo code (les PASCALiens 
n'auront aucune difficulté à traduire...) et 
donne en FORTH: 


SCR: 304 
LINE € xd yd xf yf ---) 
© © © © © © © 11 ARGUMENTS 
XD TO X YD TO Y 
X Y PLOTXY 
XD XF < 
IF 1 TO XINCR ELSE -1 TO XINCR THEN 
YD YF « 
IF 1 TO YINCR ELSE -1 TO YINCR THEN 
XD XF - ABS TO DX 
YD YF - ABS TO DY DX DY > 
IF DX 2/ TO CUMUL  DX 1+ 1 
DO X XINCR + TO X 
CUMUL DY + TO CUMUL 
CUMUL DX > CUMUL DX = OR 
IF  CUMUL DX - TO CUMUL 
Y YINCR + TO Y THEN 
X Y PLOTXY LOOP 
ELSE DY 2/ TO CUMUL DY 1+ 1 
DO Y YINCR + TO Y ê 
DX CUMUL + TO CUMUL 
CUMUL DY > CUMUL DY = OR 
IF  CUMUL DY - TO CUMUL 
X XINCR + TO X THEN 
X Y PLOTXY LOOP 
THEN © RESULT ; 


La similitude d'écriture est flagrante, Si 
l'onwavait pas fait appel aux routines de 


gestion de variables locales, mais à une 
gestion ciassique des paramètres de la pile, 
le mot LINE serait certainement illisible, 


car truffé de DROP, ROT, SWAP, PICK et autres 
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cauchemars pour débutants et avec lesquels 
les rédacteurs d'articles peu scupuleux font 
trois chapitres d'initiation dans les 
revues d'informatique ayant la prétention 
d'apprendre quelque chose à leurs lecteurs. 
En aparté, cette démarche est aussi ridicule 
que de prétendre apprendre l'électronique en 
s'arrétant au mode d'emploi d'un téléviseur. 


La preuve est donc faite que des définitions 
FORTH peuvent être fort complexes et rester 
très lisible. Par cet exemple, on passe outre 
les problèmes de manipulation de la pile de 
données en créant des outils de gestion plus 
commodes. 


ADAPTABILITE À D'AUTRES SYSTÈMES 


Vous pouvez adapter sans difficulté majeure 
les routines de gestion de variables locales 
à votre système. Voici les modifications à 
apporter: 


- en FIG, remplacer CREATE par :BUILDS. 


- si vous ne disposez pas de «‘CMOVE, voici 
comment définir ce mot: 


<CMOVE € adri adr2 n : -) 
ROT OVER PAD SWAP  CMOVE 
PAD ROT ROT CMOVE  ; 


Cette définition est donnée à titre de 
dépannage. 


Le mot SO n'est pas défini sur certains 
systèmes. Sa définition est alors la suivante 
pour les systèmes FIG (processeur ZB0, 8080 
et 6502): 


6 USER S0 


En ce qui concerne la réécriture du mot LINE 
en assembleur pour les systèmes équipés du 
6809, elle est aisée à mettre en oeuvre. En 
effet, l'adressage indexé permet une méthode 
d'accès identique au mécanisme des variables 
locales. Dans ce cas, on peut se passer des 
noms de variables locales. Ceci peut être un 
bon exercice pour ceux qui nous ont commandé 
la disquette contenant l'assembleur  FORTH 
(qui est, nous le rappelons, gratuite, 
excepté frais de disquette et d'envoi, soit 
30,00 Fr au total, en timbres poste...). 


Mais si vous avez un peu de patience, nous 
vous proposerons prochainement un nouveau 
langage, le BLAISE, qui est un véritable 
compilateur, issu de FORTH et dont la syntaxe 
est similaire au ... mais je vous laisse le 


soin de le découvrir par vous même. 


Suife de [4 page 6 
base de faits. 


FUTURSYS introduit dans ce cas une relation 
d'ordre entre les faits qui seraient concur- 
rents pour cette unification qui doit étre 
unique, ce qui est possible, car l'utilisa- 
teur peut définir un ordre (transitif, comme 
As les bases de structures) entre les faits 

‘il définit ou que son application va dé- 
OL 


COMBINATOIRE 


Le mode combinatoire, au contraire, va effec- 
tuer toutes les unifications possibles de 
l'expressions. En l'absence de processeurs 
parllèles, chaque unification (et inférence) 
sera effectuée suivant l'ordre de la base de 
faits, quand le mécanisme de ‘back-tracking' 
aura ramené l'unification au niveau de l'ex- 
pression considérée. En effet, le mécanisme 
de ‘back-tracking' permet de “défaire” les 
inférences, de la dernière qui a pu être 
effectuée à celle au niveau de laquelle ii 
existe encore au moins une possibilité d'uni- 
fication. 


PASCAL Pour une poignée de TOOLS 


REREMEREDE REED DRE DEN DD DA DEEE ) 
LANGLOIS MICHEL 
CARRE DEDER MED DDR DE JDD DEMI DEEE MED EE EE EE 


C3 


toclisi_2.pas 


procedure KeyDetit,r,n,s,c 


#3) 
M) 


ar M. LANGLOIS 


begin 
inline (SSA/T/ € LD A,(T) ) 
eFs/ € PUSH AF } 
SSA/N/ € LD A,(N) ) 
s47/ { LD B,A } 
sFr1/ { POP AF ) 
sFs/ t PUSH AF 3 
SCD/SBE9B/ { CALL #BE9B ‘ FIRMWARE‘ > 
#5B27/ ( DEFW #BB27 ? 
s34/S/ { LD A,18) ; 
s47/ { LD B,4 } 
sF1/ { POP AF ) 
sFs/ { PUSH AF ; 
SCD/SBE9B/ { CALL #BE9B * FIRMWARE" } 
S8B2D/ ( DEFW WBB2D ) 
S3A/C/ € LD A,(C) > 
#47/ { LD B,A ? 
sFi/ { POP AF } 
sFs/ { PUSH 4F } 
SCD/SBE9B/ { CALL #BE9B ‘FIRMWARE’ } 
#BB33/ ( DEFW WBB33 ) 
SO6/8FF/ € LD B,#FF ; 
S3A/R/ { LD A,(R) } 
#FE/S00/ { CP #00 3 
#20/S02/ { JR NZ, +2 ) 
s06/#00/ { LD B,#OO > 
sFi/ { POP AF > 
SCD/#BE9B/ { CALL W#BE9B "FIRMWARE" ; 
SBB39) ( DEFW WBB39 ? 


end! 


function inkeytt : byte): integer! 


var n 1 integer) 
begin 
begin 
inline (#JA/T/ © LD A,(T) } 
sCD/SBE9B/ { CALL #BE9B ‘FIRMWARE } 
SBB1E/ { DEFW NBB1E > 
VISE /eFF/ € LD A,-1 "Am=O! > 
#28/#01/ CU JR Z,+1 } 
s79/ { LD A,C *AmC'! > 
#32/N/ € LD (N+1),4 ? 
#SAF / { XOR A } 
S32/N+1) { LD (N),A } ” 
end} 
inkey:=N; 


end] 


procedure pokæe(ad : Integer VI : byte)t 
begin 

mem(ad]i:mvl} 
end! 


Voici une nouvelle série de "TOOLS" pour le système 


Procedure dpokelad,vl : integer)! AMSTRAD/SCHNEIDER. Ils complètent ceux précédemment dif- 
begin fusés dans JEDI n°21. 
memlad] tmvi mod 256} Les TOOLS 12, 2 2, 3_2 sont à ajouter aux précédents, 


memCad+i]iavl div 236} Dans TOOLS 12, les PEEK et POKE demandent une adresse en 
endi INTEGER, donc, si adr est supérieure à 32767, elle de- 
vient négative. Dans ce cas, il faut faire: 


function peekiad tinteger): byte]; 


begin (65536-adresse) 
peeki=memlad1 Le TOOLS 6 est un DUMP pour imprimante MANESSMAN Mr80. 
end! 
Le TOOLS7 donne la fonction TIME en secondes. Lors de 
function dpeek(ad :integer): integers l'écriture de WRITE(TIME), ce sera dans le format O.0E , 
begin et je ne comprends pas pourquoi.. 


dpeek: ="peek(ad)+2S61peek(ad+1)} 


end} 


procedure Di]; 
begin 
inline 


(2CD/68E9B/ { CALL #BE9B "FIRMWARE" 
#BDO4) { DEFW SBDO4 DI 


v 


end} 


Procedure El] 
begin 


inline 


(#CD/8BE9B/ { CALL SBE9B ‘FIRMWARE! LU 
#BDO7) { DEFW 8BDO7 EI > 


end} 


KS2€ él À 
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function joyO : bytel 
var n ! integer}i 


begin 
begin 
inline (SCD/SBE9B/ { CALL SBE9B ‘FIRMWARE } 
S5B24/ { DEFW SBB24 > 
#32/N) € LD (N),A > 
end} 
40yO'=n! 


end} 


tunction joyi : bytel 
var n : integer} 


begin 

begin 

iniine (SCD/SBE9B/ { CALL SBE9B ‘“FIRMWARE‘ 2) 
SBB24/ { DEFW SBB24 x 
#?7D/ { LD AL } 
#32/N) { LD (N),A à 

end! 

joyii=ns 


end} 


ADEME ADEME DE DEN ED DE DD DEEE DEEE DEEE DEEE SEE ADDED 
(###*% toois2.2.pas MAI 1986 (C) LANGLOIS MICHEL HAE) 
ME SE DEEE NEA DEEE DEEE MED DD DEEE DEEE MED DEEE DEEE DEEE DEEE DEEE EE 


function xpos: integer! 
var n : integer) 


begin 
begin 
inliine (8CD/MBE9B/ { CALL WBE9B ‘FIRMWARE > 
SBBCé/ { DEFW #BBCé 
SED/#33/N) € LD (N),DE ? 
end} 
xposi=nt 


end} 


function ypos: integeri! 
var n ! integer) 


begin 
begin 
inline (8CD/SBE9B/ { CALL WBE9B ‘FIRMWARE" } 
s2BCé/ { DEFW HBBCé } 
#22/N) € LD (N),HL > 
end! 
ypos:ent 


end} 


CHIEN DEN MED MT ME MERE DEAD NTM DE DE SES DEEE MED DES DÉ HE DER DE DD DEEE MEET D 
CHR tools3_2.pas MAI 19894  (C) LANGLOIS MICHEL ####) 
OH DENT DE DRE MIE JDE DE DEEE DEMI DE DEEE DE DE DE DE DEEE DE DES DEEE DE DEEE DER DE DE DE DEEE DE DEEE DES D 


function hpos : integer] 


var n 1 integer]} 
begin 
begin 
iniine (#CD/8BE9B/ { CALL #BE9B ‘FIRMWARE! > 
#2B?6/ { DEFW 4#EB768 ? 
#7D/ € LD A,L à 
#32/N) € LD (N),4A > 
end! 
hpos:=n] 


end} 


function vpos : integeri 
ver n 1 integer] 


begin 

begin 

inline (SCD/SBE9B/ { CALL #BE9B ‘FIRMWARE! } 
#BB79/ { DEFW #BB?78 } 
#7cC/ { LD AÀ,H } 
S32/N) € LD (N),A } 

end} 

vposi=n)} 


end]! 


function readchar(x,y ‘byte): char] 


var n : char! 
begin 
gotoxy(x,sy)1 
begin 
inline (SCD/SBE9B/ { CALL SBE9B "FIRMWARE" } 
#BBé0/ { DEFW #BB60 } 
#32/N) { LD (N),A } 
end} 


readcharimnt 
end! 
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CASE MEME SEEEEEEEIEHEEEIEERE 


(#H#  toolsé.pas MAI 1986 (C) LANGLOIS MICHEL 


Lisess 


CNE DEN DE NME MEET ED DÉS DEEE EDEN DU DRE DE DE DEEE SE EE D DEEE à 


procedure dumpir,p tinteger); { dump(0,p) normal, (1,p) inverse } 


{ p equal couleur papier 
var xX,Y1k: integer)! 
flag,bit: byte) 
begin 
writeln(ist,#27'"A°+CHR(6))} 
x:M=399) 
while x>7 do 


begin 
write(ist,#27'K'+CHR(127)4+CHR(2))1 


for y':=0 to 6368 da 
begin 
biti=O) flag:=64} 
for ki:=0 to 6 do 
begin 
gmovel(y,x-k)3 
14 testr(0,0)C>p then bit:=bit or flag! 
flag':=flag shr 1}, 
end! 
14 r=il then bit:-127-bit} 
writellst,chr(bit))3 
end} 
writellst,"J°M)) 
ximx-7} 
end} 
endi 


> 


CREME MEME IE DIE DE ME DEEE DD ED DEMI DÉS DER DEEE DE DE DE DODEME DE DEDEDEDEDEEDÉ DE DEEE DDR DE DES NE NE D 


(##  tools?.pas MAI 1986  (C) LANGLOIS MICHEL 


4) 


CHE MEME NE DE DD MED DE JDD DEEE DEEE DE SEE DEMI DE DEEE DD DE DHEA DEN DEN DE DE DD DEMEDEHDEDEDE DEEE) 


procedure setTimeit :real)} { t en secondes 


var de,hi : integer]} 
begin 

t:=t#500 
de:=truncit/65536.0)) 
hlii=round(t-65536.0#de)} 


begin 
inline (SED/S5B/de/ { LD DE, (DE) 
#S2A/h1/ € LD HL, (HL) 
SCD/S8BE9B/ { CALL #BE9B FIRMWARE" 
#BD10) { DEFW #BD10 
end} 
end} 
function time ireaij { donne le temps en secondes 
var de,hi # integer! { ecrire writeltime O0:0) 
dde,;hhl : real! { sinon c'ent ecrit O.0E1 
begin 
begin 
inline (S8CD/@BE9B/ { CALE #BE9B ‘FIRMWARE" 
#BDOD/ © DEFW WBDOD 
SED/#5S3/DE/ { LD (DE),DE 
#22/HL) € LD (HU), HL 
end} 


it de<O then ddei:=(deté5536.0)*63336.0 
else dde:=der65556.01 


1$ h1<0O then hhli:=(h1+65536.0) 
else hhli:=h1} 


time:=(ddethhi1)/300.01 


end} 


CCR 
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FORTH à LANGAGE 80AISE : 1ère partie par E.AUBOURG 


Au contraire, Si les productions sont de la 


: , forme A::=<%, il est dit hors contexte, ou non 
INTRODUCTION sensible au contexte. Il est trés Simple d'ana 
| . lvser les phrases d'un tel langage, pour véri 
Éet, ar Klete:, eStrpara Seb Le, Magazine ne fier si Mes appartiennent effectivement au 
REVUE He 19 Janvier FENTIET LoBPE etes HS langage. On utilise l'analvse descendante, avec 
prise dans nos colonnes est AULOrESRe par l'au lecture d'un symbole à la fois « LLI D: on 
Leur £E Fe directeur de MICRO=REVUE : Nous al- reconstruit la phrase à partir du symbole de 
lons étudier comment définir un langage et : : à : 
à : F départ. Par exemple: 
réaliser un compilateur pour ce langage. 
ï <phraseÿ> le chien mange 
ler EPISODE: : ésujets <verbe) le chien mange 
LA DESCRIPTION SYNTAGMATIQUE D'UN LANGAGE le chien <verbe) le chien mange 
; : : <verbe} . mange 
Nous allons nous intéresser, pour l'ins- mange mange 
tant, uniquement à la description de la syntaxe É a. 
d'un langage: le niveau sémantique n'intervient 
pratiquement que dans l'étape finale, la réali- Mais il faut prendre quelques pré _. 
sation du compilateur. l'on ne veut pas que l'analrse échoue pur er 
2 . . reur d'aiguillage et éviter les retours en 
pour décrire un langage, nous allons avoir arriére: considérons le langage 
besoin d'un autre langage, un méta-langage. 1e 
Nous utiliserons ici la notation BNF (Backus AIB 
Naur Form), Valable principalement pour les =NAUV 
langages ‘classiques' et structurés, donc inap- sB1Z 
propriée pour le FORTH ou le BASIC. Sa première 
utilisation fut pour définir l'ALGOL 60; analvsons Xz: 
FORTRAN, par exemple, avait les caractéristi- | 
ques de son compilateur et non l'inverse. S KZ 
A KZ 
Un langage se définit alors par LET,N,P,5), T KA SZ 
étant l'ensemble des éléments terminaux (par A / 
exemple GOTO), N l'ensemble des éléments non 
terminaux (les catégories grammaticales), P et  nuctre algorithme se plunte. Le probléme 
l'ensemble des productions (règles de gram- réside dans la première étape où il est itipos 
maire) et S un élément de N, l'élément de sible de décider éntre A ét & puisqu'on ne Dit 
départ. u'un svmbole à la fois. Une solution serait de 
remonter et de prendre B, mais on à dit qu'on 
on utilise pour décrire P les métasvmboles ne vouluit pas dé retour en arriére. LL va donc 
suivants: taulloir prendre des précautions dans les  defri 
uitions des Hatiquges; 6éHOUGOUS la loi: 
ne pour une production: A:::°#  signi 
fie “réécrire Ÿ pour A". si naît MY Uyn 
on doit avoir i4j > firsteYCoNFirste# # 
| pour le “ou” 


3 est l'ensemble des symboles CermiHatix 
pour svmboliser un non terminal qui peuvent apparaitre en première position 
dans les phrases dérivées de Y. 


{--} pour une répétition incluant la sé 
: quence vide € . Dans l'esemple précédent, redéfinir 16e lungage 
par 
Prenons un exemple: soit le langage 


xs 

<phrase}» -<su jet)><verbe» 1 Z 

<sujet> le chat 1 le chien 

<verbe> ::: mange 4 dort élimine tout problème 
Les quatres phrases svntaxiquement correctes Le langage Suivant pose nr autre problene: 
sont donc: 

AN 
le chat mange X € où € représente Lu cahine vide, 


le chien mange 
le chat dort Si on analsse X, où obtient! 
le chien dort 


S NS 
On à $ phrase», 1 le chien, be chat, mange, NX K 
dort} et N: féphrusad,ésujut> verbe}. XS X 
N 
Dans la suite, les majuscules désigneront tes 
non terminaux, les minuscules les terminaux et C'est le probléme de la chaine nulle. Pont 
les caractères gr des séquences d'éléments l'éeviter, énonçcons: 


de TUN des éléments de TUN*?. 

Si A € 
On dit qu'une séquence n peut Gctre directement il faut first CAMMFOITOWCAN HN 
générée à partir d'une séquence ,Ÿ s'il existe 


des séquences &, 6 : Pat ei 9. on uote uvec, en considérant toutes Les product ions Fi: 
alors)". NA diaci forowe AD Li first Ci. 
Pne séquence Th peut ulors etre génerée à par AiuSi, pour générer B,HB, BB... 
tit d'une séquence Te s'il oesiste Gefn-4 telles 
que VieLi1..n] Sas. On natede Æen des séquen Aït HE AB viole la loi 1 
ces de terminaux générables à partir de S: At Et AB viole lu Foi 2 

L fv/s #,Yy et yeT*|. on voit done qu'il est impossible de faire des 

deFinitions récursives à gauche, seuto lat 

L'étape finale de la génération ne contient récursivité à droite est possible, c'est à dire 
plus que des terminaux, d'ou leur rom. Aït EU BA, qui équivaut d'aittleurs à A: TE 


Ou dit qu'un langage est seusibile au contexte 
si la substitution d'un étFéement non terminal 
tient compte des autres svmboles présents, par 


exempletA$ ::-4v6. . 
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Ces deux lois sont suffisantes pour éviter tout 
prhlèeme au cours de l'analyse. 


Remarquons que, tout à l'heure, nous avons 
remodelé un langage pour lui faire respecter 
nos deux  Jois. Mais attention, considérons 
l'eemple suivant: 


ON aS—2— à b-cet S'—#—> à-b-c, mais Île 
premier corrspond en fait à ta-b).c et le se 
cond à y-(b-c), ce qui est différent. Quand on 
définir un langage par sa structure svntaxique, 
il faut quand méme penser à sa structure séman 
tique; 1a première réflète la seconde. 


Vous vovez maintenant pourquoi je vous disais 
que cette notation ne s'appliquait pas au 
FORTH. Cela donnerait quelque chose du genre 
<mot>::= : femotst:. 


Le mois prochain, je vous parlerai des diagram- 
mes syntaxiques, une autre façon de décrire un 


langage. = 
JEDI sur Télétel 3. SAM 


FOR Forum FORTH: 10 
JED Jedi: FORUM, Revue de presse 
BAL et Jedi: Messagerie 


Les FORUMS thématiques pour APPLE II, AMSTRAD, THOMSON, IBM, FORTH, MINITEL 


ORIC, AVENTURES, DIVERS .... 


HALCOH 


FORTH, MUMPS, etc... JUIN jo 


—— 


EST-CE QUE 
GA NOURRIT 


SON HOMME 


1fM avis 
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LPB 10 ême leçon par Ch. SCHERER 


En caricaturant un peu, on pourrait dire qu'il existe deux grandes 
variétés de systèmes informatiques : ceux qui vous demandent systématiquement 
l'heure sans être sûrs d'en avoir besoin, et ceux qui vous la donnent 
systématiquement au cas où vous pourriez en avoir besoin. 


Bien sûr, nous renverrons dos à dos ces deux conceptions, car le 
problème sous-jacent ne 8e réduit pas à une simple question anecdotique 
d'ergonomie. Il s'agit d'une véritable "attitude" du logiciel tant vis à vis de 
la machine-hôte que de l'homme utilisateur, caractérisée par davantage 
d'autonomie, d'aménité, voire de ... preévenance. 


C'est bien la pression des utilisateurs, las de se heurter sans cesse 
aux mêmes difficultés, ou de devoir répondre à chaque utilisation aux mêmes 
sempiternelles questions, qui pousse les réalisateurs de logiciels à rendre 
ceux-ci plus conviviaux et dans les meileurs cas à leur donner une apparence 
d'intelligence. 


Le langage L.P.B. n'est donc ni le premier, ni le seul à prendre en : 
compte de façon systématique ces différentes préoccupations, mais il cherche à 
prendre en compte le mieux possible trois mécanismes fondamentaux que nous 


allons tenter d'expliciter. 


1/ LE PREMIER MECANISME : 


! Le Logiciel doit reconnaître lui-même ‘ 
‘ son environnement, afin de de pouvoir ‘ 
t lui adapter son comportement. ! 


Un logiciel bien conçu devrait être capable de répondre de lui-même aux 
questions suivantes : . 


- sur quel type de machine suis-je ? 

combien de mémoire vive est à ma disposition ? 
quel genre d'écran ? 

quel genre de clavier ? , 

quelle imprimante est connectée ? 

- quelle heure est-il ? 

- où sont mes fichiers auxiliaires ? 


Bien que les algorithmes à mettre en oeuvre soient souvent relativement 
simples, on voit encore trop de logiciels, même de prix, incapables de se 
débrouiller seuls devant des questions ausi simples. Qu'ils en soient 
"conscients" au point de demander secours à l'opérateur est un pis-aller 
acceptable. Dans d'autres cas, on exigera qu'un spécialiste vienne 
préalablement manipuler de mystérieux modules appelés INSTALL ou CONFIG, dont 
l'utilité est de décrire au départ, à l'intention du logiciel principal, le 
type de configuration sur lequel on va lui demander de fonctionner. 


La pire situation est qu'un logiciel L fonctionnant convenablement sur 
une première machine M1 se trouve incapable de fonctionner sur une autre 
machine M2, semblable ou réputée compatible, et ce, sans qu'un utilisateur 
raisonnablement compétent en comprenne la raison. 


La situation idéale serait que le logiciel dispose parmi ses données 
d'une decription des principaux environnements au sein desquels on est 
susceptible de lui demander de fonctionner, lui indiquant les variantes et les 
sous-variantes à traiter. Une telle information est souvent directement ou 
indirectement accessible. Par exemple, la plupart des interpréteurs BASIC 
écrits par MICROSOFT commencent par déterminer l'étendue de la mémoire RAM 
diponible en essayant successivement de modifier et de relire un à un le 
contenu de tous les octets théoriquement adressables. Lorsque ce test échoue 
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sur un octet, il en conclut que la fin de mémoire est rencontrée et fournit à 
l'utilisateur un message du type 


MICROSOFT BASIC Version n.n xxxxx BYTES FREE. 


Cette technique est bien autre chose qu'un gadget : c'est aussi un 
moyen de vérifier le bon fonctionnement de la mémoire. 


De tels auto-diagnostics contribuent à la fiabilité des systèmes, mieux 
que le recours à un opérateur humain. Le logiciel de navigation d'un boeing de 
la KOREAN AIR LINES est capable de reconstituer en toute sécurité et à tout 
instant, grâce aux données recoupées de trois centrales inertielles, la 
position de l'avion, à condition que la position initiale lui ait été 
communiquée. Si le logiciel avait été capable de se procurer par lui-même les 
coordonnées de l'aéroport de départ sans les demander à l'équipage, il n'y 
aurait pas eu de risque qu'une erreur de saisie ne le conduise par inadvertance 
à se promener au-dessus des Îles Sakhaline. 


L'intelligence artificielle est à la mode. Nous invitons nos lecteurs, 
informaticiens avertis, à s'assurer que les logiciels ambitieux qu'ils 
manipulent commencent bien par contenir ce petit système expert qui va leur 
permettre de se situer eux-mêmes dans l'ensemble des configurations auxquels on 
les destine. 


Plus le langage dans lequel est écrit le logiciel est lui-même 
portable, plus cette question est importante, car avec le développement des 
banques de logiciels et du téléchargement, un logiciel a besoin de savoir sur 
quel genre de machine il a "atterri". Pour être concret, nous donnons ci-joint 
le canevas d'un heuristique permettant de reconnaître des machines aussi 
différentes que MSX, IBM-PC, TO7, MO5 et AMSTRAD. 


10 GOSUB 1000 
20 PRINT "La machine-support est un............. ":MA$ 
30 PRINT Modèle... 5528 case sacs esse ee ce ss ":MO$ 


HO PRINT "Micro-processeur .......s.esccscusee ":MI$ 

50 END ï 

1000 REM ---— heuristique de reconnaissance de la machine support 
1001 REM = ( à perfectionner et compléter )---mmmm 
1002 REM 


1010 A=PEEK(65532):MA$="Commodore":MI$="6502" 

1020 IF A=22 THEN MO$-"CBM 8000" :RETURN 

1030 IF A=226 THEN MO$-="C64": RETURN 

1040 IF A=34 THEN MO$="VIC 20":RETURN 

1050 IF PEEK(1):195 THEN MA$="MSX":MI$="Z80" : RETURN 
1060 A-PEEK(&HFFFE) :MA$=" THOMSON" :MI$="6809" 

1070 IF A=&HF9 THEN MO$="TO7" : RETURN 

1080 IF A=&HFO THEN MO$="MO5" : RETURN 

1090 IF PEEK(0O)=0 THEN MA$="IBM":MO$="PC-XT":MI$="80-88" : RETURN 
1100 A=PEEK(&HCO02) :MA$=" AMSTRAD" :MI$="Z80" 

1110 IF A=0 THEN MO$="CPC 64":RETURN 

1120 IF A=1 THEN MO$="CPC 128":RETURN 

1130 IF A=2 THEN MO$="CPC 6128":RETURN 

1140 IF A=3 THEN MO$="CPC 6256" :RETURN 

1150 MA$=" Inconnu!" :M0$=" Inconnu" :MI$=" Inconnu" 

1199 RETURN 


2/ LE DEUXIEME MECANISME : 


" Le Logiciel doit être capable 
‘ de migrer de lui-même vers . 
* un autre environnement. 
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A quoi bon reconnaître son environnement, diront certains, alors qu'il 
y a toujours un opérateur qui est là pour le lui dire ? Et à quoi bon laisser à 
un logiciel l'intiative de migrer tout seul, alors qu'il est si facile 
d'utiliser la commande COPY, qui universellement disponible sous tous les 
systèmes d'exploitation ? Enfin n'est-il pas dangereux de laisser une telle 
liberté à un logiciel ? 


Ces questions sont importantes, et sont encore au coeur du débat pour 
la conquête de l'espace, par exemple, où tenants et adversaires des vaisseaux 
habités s'affrontent. 


Dans des cas plus simples, le bon sens a imposé la solution. Les 
opératrices du téléphone ont disparu. Si on laisse encore des humains dans les 
cabines de contrôle des rames du métropolitain, c'est surtout pour rassurer les 
passagers, et que peut faire un pilote de TGV lancé à vive allure qui aperçoit 
au dernier moment un obstacle sur la voie, sinon augmenter le nombre des 
victimes ? 


Se copier sur un autre support suppose que notre logiciel a été capable 
de reconnaître à la fois l'environnement de départ (celui sur lequel il se 
trouve), et l'environnement de destination, par exemple : une disquette, un 
disque dur, une liaison RS232, une imprimante. Quoi de plus naturel enfin qu'un 
logiciel que vous venez d'acheter dans le commerce et dont vous lancez 
l'exécution sur votre machine se dise la première fois : " Chic, il y a un 
disque dur NEC de 20 Millions d'octets, je vais m'installer dessus et rejoindre 
mes copains qui y sont déjà, et dont je vais pouvoir partager les utilitaires". 
S'il est bien élevé, il le fera, et vous en informera. 


En guise d'illustration, nous donnons une organisation-type permettant 
à n'importe quel programme écrit en BASIC : 


de s'exécuter, par l'instruction RUN (classique) 

de s'identifier, grâce à une ligne 2 (DATA) 

de se sauver sur disquette, par l'instruction GOSUB 3 

de s'expédier lui-même en format ASCII vers un support externe 
(GOSUB 4) 

de se faire lister sur une imprimante type EPSON (GOSUB 5) 


1 GOTO 10 :REM Noyau de primitives de transfert 

2 DATA VOYAGE 

3 RESTORE:READ F$:SAVE F$:RETURN 

4 RESTORE:READ F$:SAVE "SPOO:"+F$+" .ASC", A: RETURN 

5 LPRINT CHR$(27)"3"CHR$(16)CHR$(27)"SO"CHRS$( 15) : LLIST: RETURN 
10 .... (corps du programme) .... 


3/ LE TROISIEME MECANISME 


Le logiciel se reproduit, et 
en profite pour s'améliorer. 


La reproduction est un merveilleux mécanisme par lequel le monde animal 
et végétal se distingue du monde inanimé des minéraux. 


On trouve certes dans le monde inanimé de veritables chefs d'oeuvres 
les cristaux, les stalactites, les arcs-en-ciels, les aurores boreéales. 


Mais la vie, c'est autre chose, c'est un secret bien caché au sein des 
molécules d'acide désoxyribonucléique (ADN) que la science moderne perce petit 
à petit. 
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Une molécule vivante est une molécule capable de lire un code contenu 
en elle-même de façon à construire, à partir de matériaux initialement inertes, 
une autre molécule elle aussi douée de vie. 


De façon analogue, on peut concevoir un logiciel ayant des propriétés 
telles qu'il serait capable de se lire lui-même de façon à créer à partir d'un 
zone de mémoire RAM au départ inerte, sur une machine éventuellement 
différente, un autre logiciel possédant les mêmes propriétés. 


A ne pas confondre surtout avec un simple clonage, obtenu en 
informatique par la commande COPY, qui est une forme de reproduction 
particulière sans grand intérêt ici. La reproduction dont nous parlons 
maintenant est une véritable fécondation, où l'enfant n'est pas identique au 
parent, puisque les données innées lues dans le code génétique se mêlent à des 
données propres au terrain qui a servi de théâtre à l'opération. Le fruit de la 
fécondation n'est pas toujours viable, Il n'est pas exempt de défaut. Seuls les 
meilleurs survivent, et parfois, l'enfant surpasse les parents. 


Et qui va imposer la sélection naturelle, indispensable instrument de 
l'amélioration de cette nouvelle race des logiciels ? ...C'est l'utilisateur 
humain bien sûr, paresseux par nature, qui favorisera le développement des 
logiciels les plus efficaces, c'est-à-dire ceux qui lui épargneront le mieux sa 
propre peine. Au début tout au moins, car on peut imaginer dans un second temps 
que les logiciels se combattent eux-mêmes entre eux pour occuper les meiileures 


places dans les espaces informatiques qui leur seront accessibles. 


Le compilateur BALCOM, qui traite le langage L.P.B., obéit à cette 
logique, en ce sens qu'il intègre en son sein les trois mécanismes qui viennent 
d'être présentés. Véritable méta-compilateur, inspiré en droite ligne de 
théories dont les bases furent jetées il y a déjà vingt ans par MM. KNUTH et 
WIRTH, il est effectivement capable de générer pour une machine nouvelle une 
nouvelle version qui reproduira les mêmes caractéristiques génétiques. A ce 
titre, il est préférable de parler de la famille des compilateurs BALCOM. Cette 
famille ne demande qu'à s'agrandir, et dans trois directions : 


- Sur une machine donnée, en traitant un langage-source de plus en plus 
évolué, tendant asymptotiquement vers le langage humain (c'est le projet ELENA, 
déjà opérationnel à partir d'une souche APL). 


- Vers de nouvelles machines, équipées le cas échéant de nouveaux 
micro-processeurs, de nouvelles architectures, de nouveaux langages. 


- Sur une machine donnée, et sur un même langage donné, en embarquant 
des fonctionnalités supplémentaires : il n'y a pas que la fonction de 
reproduction dans un être vivant. 


Bien que les développements qui viennent d'être cités soient 
potentiellement explosifs, il faut bien reconnaître que jusqu'ici la diffusion 
de L.P.B. est restée relativement confidentielle, et que loin d'être absolument 
originales, les caractéristiques citées se retrouvent dans nombre d'autres 
langages, tels que le FORTH. 


Vus sous cet angle, les langages évolués souffrent d'un handicap : on 
peut écrire un interpréteur BASIC en BASIC, un compilateur FORTRAN en FORTRAN, 
et de même pour COBOL, APL ou ADA, mais ils seront abominablement lents, et 
dans une compétition de type biologique, ils sont voués comme les monstres 
préhistoriques à l'extinction par sélection naturelle. 


. Parmi les classiques, seuls les langages assembleur et C peuvent être 
considérés comme capables de se recompiler eux-mêmes à 100% et donc de 
s'acapter à des variations rapides de l'environnement. 


Par comparaison, un compilateur L.P.B. typique aujourd'hui occupe 8 
kilo-octets, et est capable de se compiler lui-même, donc de se régénerer, en 
trente secondes sur un micro-ordinateur 8 bits. Les versions 16 et 32 bits, qui 
ne sont pas encore opérationnelles, auront une gestation un peu plus lente, 
mais une puissance nettement plus importante. 


L'ancêtre de la famille n'occupait que 6K dans un antique TRS-80. Mais 
au fait ... d'où venait-il celui-là ? | | 


19 


JÉLS LLC dal AA 


APL 


L'A.F.L. SUR MICRO-ORDINATEURS 


On assiste actuellement à une migration du lan 
gage  APL des gros ordinateurs vers les micros. 
En effet, les conditions nécessaires au support 
d'un langage APL sont maintenant réalisées sut 
micro, à savoir: 


une puissance de calcul suffisante avec les 
processeurs 8088+8087 ou 68000. 


suffisante. 11 faut 
d'ini 
plus 


une capacité mémoire 
compter 128K RAM pour une configuration 
tiation, et 256K pour pouvoir travailler 
sérieusement. 


Une condition pratique qui a également freiné le 
développement de l'APL est la nécessité de 
générer à l'écran un jeu de caractères spécifi- 
que et de configurer le clavier en conséquence. 
Le problème du clavier se résoud généralement 
facilement avec des autocollants. Celui de l'é- 
cran est plus délicat. 


LANGAGES APL 
ACTUELLEMENT DISPONIBLES 
SUR MICROS 


APL sur TRS-80 


L'APL-80 de la société RAMWARRE sur TRS-80 a été 
un des premiers (vers 1982 ?) APL sur micro. Les 
caractères spécifiques à l'APL étaient remplacés 
par des lettres réservées du jeu de caractères 
standard, ce qui permettait d'éluder le pro- 
blème. Aucune modification du clavier n'était 
nécessaire. L'Espace de Travail (zone mémoire 
disponible pour programmer) était e 26 K, ce qui 
peut suffire pour une initiation au langage. 


APL sous CP/M 


V-80 de VANGUARD pouvait, en principe, 

sur tout micro supportant le CP/M. La 
résolution des problèmes liés au jeu de 
caractères APL était... laissée à la discrétion 
de l'utilisateur. Avec un espace de travail de 
27K, ce progiciel n'a pas connu un grand succès. 


L'APL 
tourner 


Le VIZ-APL, d'origine anglaise, apparu il va 
environ deux ans utilisait une pagination sur 
disque pour s'affranchir des limites d'adressage 
du Z80 et gérer un espace de travail plus consé- 
querit. Ce langage, qui devait ètre distribué en 
France par la CISI a disparu de la circulation. 


L'API sous MS-DOS 


[li v a quelques années apparurent presque Simul 
tanément L'APLxPLUS'PC de STSC et le PC AP 
d'IBM. Actuellement, le premier en est ä Sa 


version 5 et le second à sa version 2: 
L'APL*xPLUS nécessite un changement de la PROM du 
générateur de caracères (fournie avec le logi 
ciel). L'APL IBM génère les caractères par soft 
à condition de disposer d'une interface écran 
CGA ou EGA, ou l'équivalent pour les compati- 
bles. Tous deux utilisent le co-processeur 8087 
s'il est présent. La configuration mémoire mini 
mum est de 256K et 512K sont conseillés, mais 
c'est là une configuration quasiment standard 
actuellement. 


L'APL sous UNIX 


Le DIALOG APL de Dyadic Systems (anglais) est en 
principe portable sur tout ordinateur sous UNIX 
Svstem V. Réservé surtout aux applications mul- 
tipostes, il n'est pas à la portée d'un particu- 
lier. 


L'APL sur machine dédiée 


La société SOFREMI importe l'AMPERE, un portatif 
japonais muni d'un écran à cristaux liquides, et 
doté de l'APL68000, un logiciel déja connu sur 
des machines à base de processeur 68000 (Thorn- 
EMI). La mauvaise lisibilité de l'écran et le 
fait que cette machine soit seulement dédiée à 
l'APL ont fait qu'elle n'a pas connu un grand 
succes. 
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L'APL sur MacINTOSH 


En 1985 est apparu le PortaAPL de dla société 
Portable Software, autorisant un espace de tra: 
vail de 230Ko sur MacINTSOSH-512K. Les possibi- 


lités graphiques du Mac ont permis de résoudre 
au mieux le problème des caractères APL. 
D'autre part, l'APL-90 (du SM-90 de Bull) a 


également été porté sur MacINTOSH. 
Une adaptation de l1'APL68000 a 
annoncée. 


également été 


L'APL sur QL SINCLAIR 


L'évennement le plus intéressant pour les APL 
istes peu fortunés a été en 1985 l'apparition du 
QL/APL, une version de l'APL68000 portée sur QL 
par la société anglaise MicroAPL. Il y a deux 
versions. L'une utilise des mots clefs réservés 


pour remplacer les caractères spéciaux APL. 
L'autre génère ces caractères à l'aide d'une 
PROM. 

Avec les 128K de base du QL on a un espace de 


travail de 28K, ce qui est peu, mais suffit pour 
une initiation au langage? Toutefois, la mémoire 
du QL peut étre augmentée jusqu'à 640Ko, et 
l'espace de travail est alors supérieur à 500Ko, 
ce qui est considérable. Une configuration à 
256ko parait raisonnable. 


Vous pouvez maintenant pratiquer l'APL avec un 
investissement d'environ 6000 Fr (matériel + 
logiciel). L'ADULA (Association des Utilisateurs 
du Langage APL) organisait pour ses membres des 
achats groupés pour bénéficier des meilleurs 
prix sur le logiciel et Île matériel. Malheureu 

sement, l'avenir du QL est désormais incertain. 


F. ESPINASSE 


QUELQUES PRIX 


Voici à titre indicatif quelques prix très  ap- 
proximatifs seulement destinés à permettre au 
lecteur de se faire une idée. Ces prix demandent 
à étre confirmés auprès des distributeurs. 


QL/SINCLAIR 128K RAM 4500 Fr 


QL/APL . 1500 Fr 
PortaAPL (pour MacINTOSH) 3500 Fr 
APL IBM-PC version 2 3500 Fr 
APLxPLUS/PC version 6000 Fr 
QUELQUES ADRESSES UTILES 
UNIWARE 8, rue Boileau 75016 PARIS 
45272061 et 45272071 


pour APLxPLUS/PC et 
PERRAI LLON 


PortaAPL CMr 


G.T.I. 17, rue de la Croix-Nivert 75015 PARIS 
42732323 pour APLxPLUS/PC et APL IBM- 
PC (Mr BRUILLARD) 


CISI 35 Bd BRUNE 75014 PARIS 45458546 pour 
Dyalog APL (Mr Beyda) 


SYNC 12, place de l'Hotel de Ville 42000 ST 
ETIENNE pour APL-90 71326562 


LOGICIA La Butte aux Creches, Chemin du Vallot 


78350 JOUY EN JOSAS 39560574 pour 
QL/APL 
ADULA 21, place de Bretten 91160 LONGJUMEAU 


12066330 
J.M. FALQ) 


pour achat QL et QL/APL  CMr 


LE 


Et 


